home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / pfovbe / pfonew.frm < prev    next >
Text File  |  1995-04-25  |  19KB  |  666 lines
  1. VERSION 2.00
  2. Begin Form frmNew 
  3.    BackColor       =   &H00008000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   1305
  6.    ClientLeft      =   2700
  7.    ClientTop       =   1635
  8.    ClientWidth     =   3420
  9.    ControlBox      =   0   'False
  10.    Height          =   1770
  11.    Icon            =   0
  12.    Left            =   2610
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   87
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   228
  18.    Top             =   1260
  19.    Width           =   3600
  20.    Begin PictureBox picArray 
  21.       Height          =   100
  22.       Index           =   0
  23.       Left            =   100
  24.       ScaleHeight     =   75
  25.       ScaleWidth      =   75
  26.       TabIndex        =   3
  27.       Top             =   1400
  28.       Width           =   100
  29.    End
  30.    Begin PictureBox picArray 
  31.       Height          =   100
  32.       Index           =   1
  33.       Left            =   200
  34.       ScaleHeight     =   75
  35.       ScaleWidth      =   75
  36.       TabIndex        =   4
  37.       Top             =   1400
  38.       Width           =   100
  39.    End
  40.    Begin PictureBox picArray 
  41.       Height          =   100
  42.       Index           =   2
  43.       Left            =   300
  44.       ScaleHeight     =   75
  45.       ScaleWidth      =   75
  46.       TabIndex        =   5
  47.       Top             =   1400
  48.       Width           =   100
  49.    End
  50.    Begin PictureBox picArray 
  51.       Height          =   100
  52.       Index           =   3
  53.       Left            =   400
  54.       ScaleHeight     =   75
  55.       ScaleWidth      =   75
  56.       TabIndex        =   6
  57.       Top             =   1400
  58.       Width           =   100
  59.    End
  60.    Begin ListBox lstReport 
  61.       Height          =   1200
  62.       Left            =   45
  63.       TabIndex        =   2
  64.       Top             =   45
  65.       Width           =   2625
  66.    End
  67.    Begin CommandButton cmdCancel 
  68.       Cancel          =   -1  'True
  69.       Caption         =   "X"
  70.       Height          =   375
  71.       Left            =   2745
  72.       TabIndex        =   1
  73.       Top             =   495
  74.       Width           =   600
  75.    End
  76.    Begin CommandButton cmdOK 
  77.       Caption         =   "OK"
  78.       Default         =   -1  'True
  79.       Height          =   375
  80.       Left            =   2745
  81.       TabIndex        =   0
  82.       Top             =   45
  83.       Width           =   600
  84.    End
  85. End
  86. Option Explicit
  87.  
  88. Sub cmdCancel_Click ()
  89.  
  90.     ShowStatus ("Cancel'd")
  91.     frmBar.Enabled = True
  92.     frmPreview.Show
  93.     Unload frmNew
  94.  
  95. End Sub
  96.  
  97. Sub cmdOK_Click ()
  98.  
  99.     Dim iIndex As Integer
  100.  
  101.     iIndex = lstReport.ListIndex
  102.  
  103.     Select Case iIndex
  104.         Case 0
  105.             ShowStatus ("Create Report 1")
  106.             Report0
  107.             ShowStatus ("Report 1 created")
  108.             frmBar.Enabled = True
  109.             frmPreview.Show
  110.             frmBar.Show
  111.             Unload frmNew
  112.         Case 1
  113.             Beep
  114.         Case 2
  115.             Beep
  116.         Case Else
  117.             Debug.Print "Error: Wrong list index"
  118.     End Select
  119.  
  120. End Sub
  121.  
  122. Sub CreateFonts ()
  123.     'Fill the font array
  124.     
  125.     Dim uiErr As Integer
  126.     Dim logfont As logfont
  127.     Dim hFont As Integer
  128.     Dim uiCount As Integer
  129.  
  130.     uiErr = PfoFontArrayCreate(PFO.FontArray)
  131.     If Not uiErr Then
  132.  
  133.         logfont.lfHeight = 60                'mm/10
  134.         logfont.lfWidth = 0
  135.         logfont.lfEscapement = 0
  136.         logfont.lfOrientation = 0
  137.         logfont.lfWeight = FW_NORMAL
  138.         logfont.lfItalic = Chr(0)
  139.         logfont.lfUnderline = Chr(0)
  140.         logfont.lfStrikeOut = Chr(0)
  141.         logfont.lfCharSet = Chr(ANSI_CHARSET)
  142.         logfont.lfOutPrecision = Chr(OUT_CHARACTER_PRECIS)
  143.         logfont.lfClipPrecision = Chr(CLIP_CHARACTER_PRECIS)
  144.         logfont.lfQuality = Chr(PROOF_QUALITY)
  145.         logfont.lfPitchAndFamily = Chr(VARIABLE_PITCH)
  146.         logfont.lfFaceName = "Arial"
  147.         
  148.         'Font 1: normal
  149.         hFont = CreateFontIndirect(logfont)
  150.         If hFont = 0 Then Exit Sub
  151.  
  152.         uiErr = PfoFontArrayAdd(PFO.FontArray, hFont)
  153.         If uiErr Then Exit Sub
  154.         
  155.         'Font 2: bold, for sub-headings
  156.         logfont.lfWeight = FW_BOLD
  157.         hFont = CreateFontIndirect(logfont)
  158.         If hFont = 0 Then Exit Sub
  159.  
  160.         uiErr = PfoFontArrayAdd(PFO.FontArray, hFont)
  161.         If uiErr Then Exit Sub
  162.  
  163.         'Font 3: larger, bold, for top heading
  164.         logfont.lfHeight = 80
  165.         hFont = CreateFontIndirect(logfont)
  166.         If hFont = 0 Then Exit Sub
  167.  
  168.         uiErr = PfoFontArrayAdd(PFO.FontArray, hFont)
  169.         If uiErr Then Exit Sub
  170.  
  171.         'Some debugging helper functions
  172.         uiErr = PfoFontArrayGetCount(PFO.FontArray, uiCount)
  173.         Debug.Print "uiCount "; uiCount
  174.         uiErr = PfoFontArrayGetAt(PFO.FontArray, 0, hFont)
  175.         Debug.Print "hFont "; hFont
  176.     End If
  177. End Sub
  178.  
  179. Sub Form_Load ()
  180.  
  181.     ShowStatus ("Choose a report")
  182.  
  183.     lstReport.Clear
  184.     
  185.     lstReport.AddItem "Report 1", 0
  186.     lstReport.AddItem "Report 2", 1
  187.     lstReport.AddItem "Report 3", 2
  188.  
  189.     If PFO.uiType < 3 Then
  190.         lstReport.Selected(PFO.uiType) = True
  191.     Else
  192.         lstReport.Selected(0) = True
  193.     End If
  194. End Sub
  195.  
  196. Sub lstReport_DblClick ()
  197.     Call cmdOK_Click
  198. End Sub
  199.  
  200. Sub Report0 ()
  201.  
  202.     Dim uiErr As Integer
  203.     Dim item As PFOITEM
  204.     Dim uiCount As Integer
  205.     Dim iOuterLoop, iIndex, iRows As Integer
  206.  
  207.     Const cszShortText = "This is a short test text."
  208.     Const cszLongText = "123_a_789 123_b_789 123_c_789 123_d_789 123_e_789 123_f_789 123_g_789 123_h_789 123_i_789 123_j_789 123_k_789 123_l_789 123_m_789 123_n_789 123_o_789 123_p_789 123_q_789 123_r_789 123_s_789 123_t_789 123_u_789 123_v_789 123_w_789 123_x_789 "
  209.  
  210.     Call ClearPFO
  211.  
  212.     'Page Layout
  213.     PFO.uiType = 0
  214.     PFO.rcPage.Left = 80
  215.     PFO.rcPage.Top = 80
  216.     PFO.rcPage.right = 1980
  217.     PFO.rcPage.bottom = 2380
  218.     PFO.uiHeaderDY = 100
  219.     PFO.uiFooterDY = 120
  220.     PFO.uiPageToPrint = 1
  221.  
  222.     Call CreateFonts
  223.  
  224.     'Header Array
  225.     uiErr = PfoItemArrayCreate(PFO.ItemArrayHeader)
  226.     If uiErr Then Exit Sub
  227.  
  228.     item.uiVersion = &H100&
  229.     item.uiYOffs = 0
  230.     item.uiXOffs = 0
  231.     item.uiWidth = 2000
  232.     item.uiHeight = 0
  233.     item.uiType = PFO_FIXSTR
  234.     item.acFixStr = "(#p) Header"
  235.     item.uiFontIdx = 0
  236.     item.uiAlignment = PFO_LEFT
  237.     item.bKeepYPos = True
  238.     item.bBorderLeft = False
  239.     item.bBorderRight = False
  240.     item.bBorderTop = False
  241.     item.bBorderBottom = False
  242.     item.bNewPage = False
  243.  
  244.     uiErr = PfoItemArrayAdd(PFO.ItemArrayHeader, item)
  245.     If uiErr Then Exit Sub
  246.  
  247.     item.uiYOffs = 0
  248.     item.uiXOffs = 0
  249.     item.uiWidth = PFO.rcPage.right - PFO.rcPage.Left
  250.     item.uiHeight = 0
  251.     item.uiType = PFO_FIXSTR
  252.     item.acFixStr = "Headertext"
  253.     item.uiFontIdx = 0
  254.     item.uiAlignment = PFO_RIGHT
  255.     item.bKeepYPos = False
  256.     item.bBorderLeft = False
  257.     item.bBorderRight = False
  258.     item.bBorderTop = False
  259.     item.bBorderBottom = False
  260.     item.bNewPage = False
  261.  
  262.     uiErr = PfoItemArrayAdd(PFO.ItemArrayHeader, item)
  263.     If uiErr Then Exit Sub
  264.  
  265.  
  266.  
  267.     'Footer Array
  268.     uiErr = PfoItemArrayCreate(PFO.ItemArrayFooter)
  269.     If uiErr Then Exit Sub
  270.  
  271.     item.uiYOffs = 0
  272.     item.uiXOffs = 0
  273.     item.uiWidth = 2000
  274.     item.uiHeight = 0
  275.     item.uiType = PFO_FIXSTR
  276.     item.acFixStr = "(#p) Footer"
  277.     item.uiFontIdx = 0
  278.     item.uiAlignment = PFO_LEFT
  279.     item.bKeepYPos = True
  280.     item.bBorderLeft = False
  281.     item.bBorderRight = False
  282.     item.bBorderTop = False
  283.     item.bBorderBottom = False
  284.     item.bNewPage = False
  285.  
  286.     uiErr = PfoItemArrayAdd(PFO.ItemArrayFooter, item)
  287.     If uiErr Then Exit Sub
  288.  
  289.     item.uiYOffs = 0
  290.     item.uiXOffs = 0
  291.     item.uiWidth = PFO.rcPage.right - PFO.rcPage.Left
  292.     item.uiHeight = 0
  293.     item.uiType = PFO_FIXSTR
  294.     item.acFixStr = "Footer text"
  295.     item.uiFontIdx = 0
  296.     item.uiAlignment = PFO_RIGHT
  297.     item.bKeepYPos = False
  298.     item.bBorderLeft = False
  299.     item.bBorderRight = False
  300.     item.bBorderTop = False
  301.     item.bBorderBottom = False
  302.     item.bNewPage = False
  303.  
  304.     uiErr = PfoItemArrayAdd(PFO.ItemArrayFooter, item)
  305.     If uiErr Then Exit Sub
  306.  
  307.  
  308.     item.uiYOffs = 0
  309.     item.uiXOffs = 0
  310.     item.uiWidth = PFO.rcPage.right - PFO.rcPage.Left
  311.     item.uiHeight = 0
  312.     item.uiType = PFO_FIXSTR
  313.     item.acFixStr = "Footer #p"
  314.     item.uiFontIdx = 0
  315.     item.uiAlignment = PFO_RIGHT
  316.     item.bKeepYPos = False
  317.     item.bBorderLeft = False
  318.     item.bBorderRight = False
  319.     item.bBorderTop = False
  320.     item.bBorderBottom = False
  321.     item.bNewPage = False
  322.  
  323.     uiErr = PfoItemArrayAdd(PFO.ItemArrayFooter, item)
  324.     If uiErr Then Exit Sub
  325.  
  326.  
  327.     'Body Array
  328.     uiErr = PfoItemArrayCreate(PFO.ItemArrayBody)
  329.     If uiErr Then Exit Sub
  330.     
  331.     item.uiYOffs = 0
  332.     item.uiXOffs = 0
  333.     item.uiWidth = 2000
  334.     item.uiHeight = 0
  335.     item.uiType = PFO_FIXSTR
  336.     item.acFixStr = "Body"
  337.     item.uiFontIdx = 0
  338.     item.uiAlignment = PFO_LEFT
  339.     item.bKeepYPos = True
  340.     item.bBorderLeft = False
  341.     item.bBorderRight = False
  342.     item.bBorderTop = False
  343.     item.bBorderBottom = False
  344.     item.bNewPage = False
  345.  
  346.     uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  347.     If uiErr Then Exit Sub
  348.  
  349.     item.uiYOffs = 0
  350.     item.uiXOffs = 0
  351.     item.uiWidth = PFO.rcPage.right - PFO.rcPage.Left
  352.     item.uiHeight = 0
  353.     item.uiType = PFO_FIXSTR
  354.     item.acFixStr = "Body text"
  355.     item.uiFontIdx = 0
  356.     item.uiAlignment = PFO_RIGHT
  357.     item.bKeepYPos = False
  358.     item.bBorderLeft = False
  359.     item.bBorderRight = False
  360.     item.bBorderTop = False
  361.     item.bBorderBottom = False
  362.     item.bNewPage = False
  363.  
  364.     uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  365.     If uiErr Then Exit Sub
  366.  
  367.     
  368.     
  369.     'A sequence of mixed tables and texts
  370.     
  371.     For iOuterLoop = 0 To 4
  372.  
  373.         item.uiYOffs = iOuterLoop * 333
  374.         item.uiXOffs = 0
  375.         item.uiWidth = 2000
  376.         item.uiHeight = 0
  377.         item.uiType = PFO_FIXSTR
  378.         item.acFixStr = "Caption"
  379.         item.uiFontIdx = 2
  380.         item.uiAlignment = PFO_LEFT
  381.         item.bKeepYPos = False
  382.         item.bBorderLeft = False
  383.         item.bBorderRight = False
  384.         item.bBorderTop = False
  385.         item.bBorderBottom = False
  386.         item.bNewPage = False
  387.  
  388.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  389.         If uiErr Then Exit Sub
  390.  
  391.         item.uiYOffs = 100
  392.         item.uiXOffs = 0
  393.         item.uiWidth = 2000
  394.         item.uiHeight = 0
  395.         item.uiType = PFO_FIXSTR
  396.         item.acFixStr = "HorzTitl 1"
  397.         item.uiFontIdx = 1
  398.         item.uiAlignment = PFO_LEFT
  399.         item.bKeepYPos = True
  400.         item.bBorderLeft = False
  401.         item.bBorderRight = False
  402.         item.bBorderTop = False
  403.         item.bBorderBottom = True
  404.         item.bNewPage = False
  405.  
  406.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  407.         If uiErr Then Exit Sub
  408.  
  409.         item.uiYOffs = 0
  410.         item.uiXOffs = 600
  411.         item.uiWidth = 2000
  412.         item.uiHeight = 0
  413.         item.uiType = PFO_FIXSTR
  414.         item.acFixStr = "HorzTitl 2"
  415.         item.uiFontIdx = 1
  416.         item.uiAlignment = PFO_LEFT
  417.         item.bKeepYPos = True
  418.         item.bBorderLeft = False
  419.         item.bBorderRight = False
  420.         item.bBorderTop = False
  421.         item.bBorderBottom = True
  422.         item.bNewPage = False
  423.  
  424.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  425.         If uiErr Then Exit Sub
  426.  
  427.         item.uiYOffs = 0
  428.         item.uiXOffs = 1200
  429.         item.uiWidth = 2000
  430.         item.uiHeight = 0
  431.         item.uiType = PFO_FIXSTR
  432.         item.acFixStr = "HorzTitl 3"
  433.         item.uiFontIdx = 1
  434.         item.uiAlignment = PFO_LEFT
  435.         item.bKeepYPos = False
  436.         item.bBorderLeft = False
  437.         item.bBorderRight = False
  438.         item.bBorderTop = False
  439.         item.bBorderBottom = True
  440.         item.bNewPage = False
  441.  
  442.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  443.         If uiErr Then Exit Sub
  444.  
  445.         item.uiYOffs = 10
  446.         item.uiXOffs = 0
  447.         item.uiWidth = 2000
  448.         item.uiHeight = 0
  449.         item.uiType = PFO_FIXSTR
  450.         item.acFixStr = "HorzItem 1"
  451.         item.uiFontIdx = 0
  452.         item.uiAlignment = PFO_LEFT
  453.         item.bKeepYPos = True
  454.         item.bBorderLeft = False
  455.         item.bBorderRight = False
  456.         item.bBorderTop = False
  457.         item.bBorderBottom = False
  458.         item.bNewPage = False
  459.  
  460.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  461.         If uiErr Then Exit Sub
  462.  
  463.         item.uiYOffs = 0
  464.         item.uiXOffs = 600
  465.         item.uiWidth = 2000
  466.         item.uiHeight = 0
  467.         item.uiType = PFO_FIXSTR
  468.         item.acFixStr = "HorzItem 2"
  469.         item.uiFontIdx = 0
  470.         item.uiAlignment = PFO_LEFT
  471.         item.bKeepYPos = True
  472.         item.bBorderLeft = False
  473.         item.bBorderRight = False
  474.         item.bBorderTop = False
  475.         item.bBorderBottom = False
  476.         item.bNewPage = False
  477.  
  478.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  479.         If uiErr Then Exit Sub
  480.  
  481.         item.uiYOffs = 0
  482.         item.uiXOffs = 1200
  483.         item.uiWidth = 2000
  484.         item.uiHeight = 0
  485.         item.uiType = PFO_FIXSTR
  486.         item.acFixStr = "HorzItem 3"
  487.         item.uiFontIdx = 0
  488.         item.uiAlignment = PFO_LEFT
  489.         item.bKeepYPos = False
  490.         item.bBorderLeft = False
  491.         item.bBorderRight = False
  492.         item.bBorderTop = False
  493.         item.bBorderBottom = False
  494.         item.bNewPage = False
  495.  
  496.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  497.         If uiErr Then Exit Sub
  498.  
  499.         For iIndex = 1 To 12
  500.     
  501.             item.uiYOffs = 100
  502.             item.uiXOffs = 0
  503.             item.uiWidth = 500
  504.             item.uiHeight = 0
  505.             item.uiType = PFO_FIXSTR
  506.             item.acFixStr = "Label"
  507.             item.uiFontIdx = 1
  508.             item.uiAlignment = PFO_RIGHT
  509.             item.bKeepYPos = True
  510.             item.bBorderLeft = False
  511.             item.bBorderRight = False
  512.             item.bBorderTop = False
  513.             item.bBorderBottom = False
  514.             item.bNewPage = False
  515.     
  516.             uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  517.             If uiErr Then Exit Sub
  518.     
  519.             item.uiYOffs = 0
  520.             item.uiXOffs = 550
  521.             item.uiWidth = 2000 - 550
  522.             item.uiHeight = 0
  523.             item.uiType = PFO_FIXSTR
  524.             item.acFixStr = cszShortText
  525.             item.uiFontIdx = 0
  526.             item.uiAlignment = 0
  527.             item.bKeepYPos = PFO_LEFT
  528.             item.bBorderLeft = False
  529.             item.bBorderRight = False
  530.             item.bBorderTop = False
  531.             item.bBorderBottom = False
  532.             item.bNewPage = False
  533.  
  534.             If iIndex Mod 6 = 0 Then
  535.                 item.acFixStr = cszLongText
  536.             End If
  537.  
  538.             uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  539.             If uiErr Then Exit Sub
  540.  
  541.         Next iIndex
  542.  
  543.  
  544.  
  545.         item.uiYOffs = 0
  546.         item.uiXOffs = 0
  547.         item.uiWidth = 500
  548.         item.uiHeight = 0
  549.         item.uiType = PFO_FIXSTR
  550.         item.acFixStr = "ColHead 1"
  551.         item.uiFontIdx = 1
  552.         item.uiAlignment = PFO_LEFT
  553.         item.bKeepYPos = True
  554.         item.bBorderLeft = True
  555.         item.bBorderRight = True
  556.         item.bBorderTop = True
  557.         item.bBorderBottom = True
  558.         item.bNewPage = True
  559.  
  560.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  561.         If uiErr Then Exit Sub
  562.  
  563.         item.uiYOffs = 0
  564.         item.uiXOffs = 500
  565.         item.uiWidth = 500
  566.         item.uiHeight = 0
  567.         item.uiType = PFO_FIXSTR
  568.         item.acFixStr = "ColHead 2"
  569.         item.uiFontIdx = 1
  570.         item.uiAlignment = PFO_CENTER
  571.         item.bKeepYPos = True
  572.         item.bBorderLeft = True
  573.         item.bBorderRight = True
  574.         item.bBorderTop = True
  575.         item.bBorderBottom = True
  576.         item.bNewPage = False
  577.  
  578.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  579.         If uiErr Then Exit Sub
  580.  
  581.         item.uiYOffs = 0
  582.         item.uiXOffs = 1000
  583.         item.uiWidth = 500
  584.         item.uiHeight = 0
  585.         item.uiType = PFO_FIXSTR
  586.         item.acFixStr = "ColHead 3"
  587.         item.uiFontIdx = 1
  588.         item.uiAlignment = PFO_RIGHT
  589.         item.bKeepYPos = False
  590.         item.bBorderLeft = True
  591.         item.bBorderRight = True
  592.         item.bBorderTop = True
  593.         item.bBorderBottom = True
  594.         item.bNewPage = False
  595.  
  596.         uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  597.         If uiErr Then Exit Sub
  598.  
  599.  
  600.         For iRows = 1 To 2 * iOuterLoop
  601.     
  602.             item.uiYOffs = 0
  603.             item.uiXOffs = 0
  604.             item.uiWidth = 500
  605.             item.uiHeight = 0
  606.             item.uiType = PFO_FIXSTR
  607.             item.acFixStr = "ColRow 1"
  608.             item.uiFontIdx = 0
  609.             item.uiAlignment = PFO_LEFT
  610.             item.bKeepYPos = True
  611.             item.bBorderLeft = True
  612.             item.bBorderRight = True
  613.             item.bBorderTop = True
  614.             item.bBorderBottom = True
  615.             item.bNewPage = False
  616.     
  617.             uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  618.             If uiErr Then Exit Sub
  619.     
  620.             item.uiYOffs = 0
  621.             item.uiXOffs = 500
  622.             item.uiWidth = 500
  623.             item.uiHeight = 0
  624.             item.uiType = PFO_FIXSTR
  625.             item.acFixStr = "ColRow 2"
  626.             item.uiFontIdx = 0
  627.             item.uiAlignment = PFO_CENTER
  628.             item.bKeepYPos = True
  629.             item.bBorderLeft = True
  630.             item.bBorderRight = True
  631.             item.bBorderTop = True
  632.             item.bBorderBottom = True
  633.             item.bNewPage = False
  634.     
  635.             uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  636.             If uiErr Then Exit Sub
  637.     
  638.             item.uiYOffs = 0
  639.             item.uiXOffs = 1000
  640.             item.uiWidth = 500
  641.             item.uiHeight = 0
  642.             item.uiType = PFO_FIXSTR
  643.             item.acFixStr = "ColRow 3"
  644.             item.uiFontIdx = 0
  645.             item.uiAlignment = PFO_RIGHT
  646.             item.bKeepYPos = False
  647.             item.bBorderLeft = True
  648.             item.bBorderRight = True
  649.             item.bBorderTop = True
  650.             item.bBorderBottom = True
  651.             item.bNewPage = False
  652.     
  653.             uiErr = PfoItemArrayAdd(PFO.ItemArrayBody, item)
  654.             If uiErr Then Exit Sub
  655.  
  656.         Next iRows
  657. Skip:
  658.  
  659.     Next iOuterLoop
  660.  
  661.     uiErr = PfoInit(PFO)
  662.     If uiErr Then Exit Sub
  663.  
  664. End Sub
  665.  
  666.